   1 .
   2 .
   3 .SUB SEARCH
   4 .BY RON PICARDI
 100 X=rnd (10);Y=rnd (10);U=rnd (10);V=rnd (10);FC=7;BC=250
 110 clear ;box 0,0,160,60,1
 120 box -70+Xmul 14,-30+Ymul 6,6,2,3;CY=40;print "ENTER  SEARCH 1 to 10"
 130 CY=-35;input Y;CY=-35;CX=0;input X
 140 for A=0to X;box -70+Amul 14,-30,2,2,3;MU="5";box -70+Amul 14,-30,2,2,3;next A
 150 for A=0to Y;box -70+Xmul 14,-30+6mul A,2,2,3;MU="5";box -70+Xmul 14,-30+Amul 6,2,2,3;next A
 155 if X=Uif Y=Vgoto 400
 160 E=rnd (100);if E=20goto 660
 180 goto 120
 400 clear ;print "SONAR CONTACT"
 420 CY=0;print "BATTLE STATIONS"
 440 for A=1to 10;&(18)=30;for B=255to 0step -10;&(22)=B;next B;for B=1to 30;next B;next A;&(18)=0
 500 X=rnd (5);Y=rnd (5);Z=rnd (3);clear 
 510 J=2;K=2;L=0;D=rnd (4)
 515 for C=1to 1+D;clear ;FC=0;BC=7
 520 print "FROM",#2,J,#2,K,#2,L
 530 print "SUB WAS"
 540 if J>Yprint "NORTH",
 550 if J<Yprint "SOUTH",
 560 if J#Yif K#Xprint " AND ",
 570 if K<Xprint "EAST"
 580 if K>Xprint "WEST"
 590 print " ";if L>Zprint "SHOT TOO LOW"
 600 if L<Zprint "SHOT TOO HIGH"
 610 if L=Zprint "DEPTH OK"
 620 input "ENTER TARGET DATA"J,K,L
 621 &(21)=255;&(23)=255;clear ;print "MISSLE ON THE WAY";FC=7;BC=0
 623 for A=-40to 40;box Adiv 2,A,1,3, 3;box -40-Adiv 2,-40,10,2,3;for B=1to 10;next B
 624 box Adiv 2,A,1,3,3;box -40-Adiv 2,-40,10,2,3;next A
 626 &(21)=0;&(23)=0;for A=40to -40step -1;box 20,A,1,3,3;for B=1to 10;next B;box 20,A,1,3,3;next A
 628 for A=10to 30;MU="!";line 20,-40, 0;line A,-40+rnd (15),3;next A
 640 if Y=Jif X=Kif Z=Lgoto 900
 650 next C
 660 clear ;print "ABANDON SHIP";print "YOU HAVE BEENTORPEDOED"
 670 box 0,-20,50,5,1;box 22,-18,4,5,1;box 10,-16,1,6,1;box -5,-18,5,5,1
 690 for A=1to 2;for B=-20to 20step 2;line -0,-20,0;MU="!";line B,10,3;next B;next A
 700 for A=1to 10;&(22)=255;for B=60to 10step -1;&(18)=B;next B;&(22)=0;for B=1to 30;next B;next A;&(22)=0
 710 for A=-40to 40;line -78,A,0;line 78,A,1;next A
 890 goto 950
 900 clear ;print "BOOM ! !!"
 910 box 0,0,50,8,1;box 10,5,8,5,1;box 25,0,4,6,1;box -25, 0,6,4,1
 920 for A=-30to 30step 2;line 0,0,0;MU="!";BC=7;line A,10+rnd (30),3;BC=0;next A
 950 clear ;print "DO YOU WANT TO";print "TRY AGAIN?"
 960 print "1.YES  2.NO"
 970 if &(23)=8goto 100
 975 if &(22)=8goto 1000
 980 goto 970
1000 clear ;print "OK I HOPE YOU ENJOYED";print "YOURSELF"
:return ; run 